<% response.write strFirstName%> <% response.write strLastName%> <% If Session("UserID") + 1 = strSuppliedPID + 1 Then response.write " Welcome, " & Session("Title") & " " & Session("Firstname") & " " & Session("Lastname") & "!" response.write " Click on the buttons above to edit your profile or return to your homepage! " Else If Session("UserStatus") = "researching" Then response.write " Welcome, " & Session("Title") & " " & Session("Firstname") & " " & Session("Lastname") & "!" response.write " In your capacity as researcher, you may click on the buttons above to grant, deny or enter into dialogue about this registrant's authorisation to access supervision on the site and participate in the research. Or you can confirm that this user's credentialling documentation has been received, return to the search page, listing those registrants who have submitted further professional details and whose authorisation is pending, or return to your homepage. " End If End If %>

<% If strIdentityPrivacy = "Public" AND strPhotoLocation <> "NA" AND strPhotoApproval = "Yes" Then ' Live Photo %> <% Else %> <% End If %>

Essential Personal/Professional Details

<% response.write strTitle & " "%><% response.write strFirstName & " "%><% response.write strLastName%> has registered interest with online-supervision.net in <% response.write strUserStatus%> supervision mainly for <% response.write strWorkType%> work.

<% response.write strFirstName%> works predominantly in the field of <% response.write strProfession%> <% Set conn = Server.CreateObject("ADODB.Connection") conn.Open connstr ' Open database connection strSQL = "SELECT ProfessionID" strSQL = strSQL & " FROM UsersProfessions" strSQL = strSQL & " WHERE UserID = '" & strSuppliedPID & "'" Set rs = conn.Execute(strSQL) If Not rs.eof Then response.write ", and is interested in " & strUserStatus & " supervision for the practice of:

The primary therapeutic orientation in <% response.write strFirstName%>'s work is <% response.write strOrientation strSQL = "SELECT OrientationID" strSQL = strSQL & " FROM UserOrientations" strSQL = strSQL & " WHERE UserID = '" & strSuppliedPID & "'" Set rs = conn.Execute(strSQL) If Not rs.eof Then response.write ". " & strFirstName & " is ready to " & replace(strUserStatus,"ing","e") & " supervision with a theoretical focus as follows:

" do while not rs.eof strOrientationID = rs.Fields("OrientationID") strSQL = "SELECT OrientationName" strSQL = strSQL & " FROM Orientations" strSQL = strSQL & " WHERE OrientationID = '" & strOrientationID & "'" Set rs2 = conn.Execute(strSQL) strOrientationName = rs2.Fields("OrientationName") rs2.Close ' Close recordset Set rs2 = nothing ' Remove recordset response.write "
• " & strOrientationName & "
" rs.movenext loop rs.Close ' Close recordset Set rs = nothing ' Remove recordset response.write "

<% response.write strFirstName%> has been practicing for <% response.write strPracticeExpYears%> years, with <% response.write strInternetExpYears%> years experience of Internet use.

Preferred Supervision Arrangements

The minimum size <% response.write strFirstName%> would want a supervision group to be is <% response.write strMinSize%>  members, with <% response.write strMaxSize%> as the maximum number. <% If strIndividual <> "" Then %> Asked if it was ideally individual rather than group supervision <% response.write strFirstName%> was looking for, the answer was <% response.write strIndividual%>. <% End If %> Facilitites and tools <% response.write strFirstName%> would want to use include:

<% If strUseList <> "" Then response.write "
• " & strUseList End If If strUseArchives <> "" Then response.write "
• " & strUseArchives End If If strUseIM <> "" Then response.write "
• " & strUseIM End If If strUseFileStorage <> "" Then response.write "
• " & strUseFileStorage End If If strUseVideoconferencing <> "" Then response.write "
• " & strUseVideoconferencing End If %>

The sort of supervision structure <% response.write strFirstName%> is looking for is <% response.write strStructure%> <% response.write strFirstName%> is personally ready to make a time commitment in the region of <% response.write strTimeCommittment%> hours per week. <% If strUserStatus = "providing" Then response.write strFirstName & " is " & strPayment End If %> <% If strUserStatus = "receiving" Then %>In terms of leadership, <% response.write strFirstName%> prefers the idea of <% response.write strLeadership End If %>

Detailed Professional Information

<% response.write strFirstName%> has undertaken a professional training in <% If strQualName <> "" Then Response.write strQualName Else response.write " awaiting name of qualification " End If %> at <% If strHighestQual <> "" Then Response.write strHighestQual Else response.write " awaiting level of qualification " End If %> level at <% If strQualInstitution <> "" Then Response.write strQualInstitution Else response.write " awaiting name of institution " End If %>, <% If strInstitutionCountry <> "" Then Response.write strInstitutionCountry Else response.write " awaiting country of institution" End If %> .

Further professional experience and expertise <%=strFirstname%> has acquired includes the following:

<% If strFurtherProfQuals <> "" Then response.write strFurtherProfQuals & "